home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mep1 / Samples / Programs / words.icn < prev   
Encoding:
Text File  |  1990-11-23  |  251 b   |  14 lines  |  [TEXT/PICN]
  1. # Icon program to list different words in
  2. # a file alphabetically.
  3.  
  4. procedure main()
  5.  
  6.        words := set()
  7.     
  8.         while line := read() do
  9.             line ? while tab(upto(&letters)) do
  10.               insert(words,tab(many(&letters)))
  11.     
  12.         every write(!sort(words))
  13.    
  14.    end